unit MultiClassMethod_GridEh;
interface
uses
  AcroMultiClassMethod,Dialogs;

implementation

uses
  Classes,Graphics,Variants,DBGridEh;


procedure Proc_TCustomDBGridEh(ATable: IDataLocate; AComponent: TObject;
  ALCID,ASeqNo: string;AParams:TStringList);
var
  i:integer;
begin
  TDBGridEh(AComponent).Columns.BeginUpdate;
  try
    for i:=TDBGridEh(AComponent).Columns.Count-1  downto 0 do
      TDBGridEh(AComponent).Columns[i].Title.Caption:=
        GetDisplayValue(ATable,TDBGridEh(AComponent).Columns[i].Title.Caption,
          ALCID,ASeqNo,TDBGridEh(AComponent).Columns[i],'Caption');
  finally
    TDBGridEh(AComponent).Columns.EndUpdate;
  end;
end;

initialization
  AcroClassMethodStorage.RegisterClassMethod(TCustomDBGridEh,Proc_TCustomDBGridEh);
finalization
  AcroClassMethodStorage.UnRegisterClassMethod(TCustomDBGridEh);
end.
